{-# OPTIONS -Wall #-}

module Demo01 where

import Lirio.Base.Duration
import Lirio.Base.Overloading
import Lirio.Base.Pitch
import qualified Lirio.Base.RelDuration as R
import qualified Lirio.Base.AbsDuration as A
import qualified Lirio.DrumPitchNames as Perc
import Lirio.NoteListOps
import qualified Lirio.Percussion as Perc
import Lirio.RelPitch
import Lirio.Score
import Lirio.ScoreDoc

-- Beaming is a bit weird as the beaml and beamr are note list 
-- transformers not /syntax/ elements.
-- 

demo01 = execScore $ notelist $ do 
   rest dQuarter >> beaml (note middle_c dEighth) 
                 >> beamr (note middle_c dEighth) 


demo02 = execScore $ notelist $ do 
   rest dQuarter >> beam (note middle_c dEighth >> note middle_c dEighth) 


demo03 = execScore $ Perc.notelist $ do 
    chord [ Perc.acousticbassdrum, Perc.bassdrum ] dQuarter